home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / Sound / AHI / Developer / examples / Low-level / PTdatatype / RomTag.a < prev    next >
Text File  |  1997-04-18  |  1KB  |  77 lines
  1. **
  2. **    AIFF DataType
  3. **
  4. **    Written by Olaf `Olsen' Barthel <olsen@sourcery.han.de>
  5. **        Public domain
  6. **
  7. ** :ts=8
  8. **
  9.  
  10.         include "exec/tasks.i"
  11.         include "exec/types.i"
  12.         include    "exec/nodes.i"
  13.         include "exec/resident.i"
  14.         include    "lvo/exec_lib.i"
  15.  
  16.         include    "protracker.datatype_rev.i"
  17.  
  18.         xref    LibInitTab
  19.  
  20.         section    text,code
  21.  
  22. *----------------------------------------------------------------------
  23. *
  24. *    The first executable instruction of this module; recycled as
  25. *    the reserved library entry function.
  26. *
  27. *----------------------------------------------------------------------
  28.  
  29.         xdef    @LibNull
  30.  
  31. @LibNull:
  32.  
  33.         moveq    #0,d0
  34.         rts
  35.  
  36. *----------------------------------------------------------------------
  37.  
  38. InitDesc:
  39.         dc.w    RTC_MATCHWORD
  40.         dc.l    InitDesc
  41.         dc.l    EndCode
  42.         dc.b    RTF_AUTOINIT
  43.         dc.b    VERSION
  44.         dc.b    NT_LIBRARY
  45.         dc.b    0
  46.         dc.l    LibName
  47.         dc.l    LibID
  48.         dc.l    LibInitTab
  49. EndCode:
  50.  
  51. *----------------------------------------------------------------------
  52.  
  53. LibName:
  54.         dc.b    'protracker.datatype',0
  55.  
  56. LibID:
  57.         VSTRING
  58.  
  59. *----------------------------------------------------------------------
  60.  
  61.     cnop    0,2
  62.  
  63.     XDEF    SlaveProcEntry
  64.     XREF    SlaveEntry
  65.  
  66. SlaveProcEntry:
  67.     move.l    4.w,a6
  68.     suba.l    a1,a1
  69.     jsr    _LVOFindTask(a6)
  70.     move.l    d0,a0
  71.     move.l    TC_Userdata(a0),a6
  72.     jmp    SlaveEntry
  73.  
  74. *----------------------------------------------------------------------
  75.  
  76.         end
  77.